home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / trim40.zip / TRIM.PRG < prev    next >
Text File  |  1992-06-26  |  1KB  |  62 lines
  1. * TRIM.PRG written by Michael MacDonald 06/26/92
  2. *
  3. SET TALK OFF
  4. SET CURSOR OFF
  5. IF ISCOLOR()
  6.  SET COLOR to W/B
  7. ENDIF
  8. CLEAR
  9. @ 1,21 SAY  "TRIM v4.0 by Michael MacDonald (c)1992"
  10. @ 2,3 SAY "A program to trim non-existing files from ROBOCOMM's Downloaded Files List"
  11. @ 4,3 SAY "░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  12. DO CASE
  13.  CASE FILE("up30.dbf")
  14.    USE UP30
  15.    @ 7,3 SAY "Using UP30.DBF"
  16.  CASE FILE("up40.dbf")
  17.    USE UP40
  18.    @ 7,3 SAY "Using UP40.DBF"
  19.  OTHERWISE
  20.    @ 7,3 SAY "Can't find UPxx.DBF"
  21.    ?
  22.    SET CURSOR ON
  23.    QUIT
  24. ENDCASE
  25. RESTORE FROM ROBOCOMM.MEM
  26. DF=rtrim(MF_DARCDIR)
  27. UF=rtrim(MF_UARCDIR)
  28. msize=RECCOUNT()
  29. num=0
  30. ct=0
  31. @ 8,3 SAY "Searching for download files"
  32. DO WHILE .NOT. EOF()
  33.    num=num+1
  34.    line=INT((num/msize)*74)
  35.    IF line>0
  36.       @ 4,2+line SAY "█"
  37.    ENDIF
  38.    IF msize < 74 .AND. line < 74
  39.       @ 4,3+line SAY "█"
  40.    ENDIF
  41.    IF  .NOT. FILE(UF+file_name) .AND.;
  42.        .NOT. FILE(DF+file_name) .AND. FSTATUS<>"O"
  43.       ct=ct+1
  44.       @ 9,3 SAY "Deleting -->"
  45.       @ 9,16 SAY file_name
  46.       DELETE
  47.    ENDIF
  48.  SKIP
  49. ENDDO
  50. @ 10,1 SAY "  "
  51. IF ct>0
  52.    ?? LTRIM(STR(ct))+" files deleted"
  53. ELSE
  54.    ? "   No files deleted"
  55. ENDIF
  56. SET CURSOR ON
  57. ?
  58. *CLOSE ALL
  59. *QUIT
  60. *
  61. * EOF TRIM.PRG
  62.